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SUMMARY 


The Oklahoma State University Electronics Laboratory has developed a 
microprocessor-based IRIG format "B" real-time decoder. This circuit will provide a 
parallel BCD output to any device which requires this information. This decoder accepts 
stondard unmodulated IRIG "B" code and provides the time in a continuously available 
parallel output. The 34 bit BCD output includes tenths of seconds, seconds, minutes, 
hours, and days. This output is updated ten times per second. The system has a backup 
timer which will be implemented when the system senses a failure of the IRIG input 
signal. However, the system will return to its normal mode of operation upon return of 
the IRIG signal. 

National Semiconductor's NSC800 microprocessor has been implemented to 
control the all-CMOS decoder. The system is based on software for the purpose of 
reducing weight, parts count, power consumption and cost. Basically, the system is a 
microcomputer which is programmed for only one task. However, the system is not 
dedicated and other programs may be excecuted transparently. From a hardware point 
of view, the same general system could be used as a basis for other NSC800-controlled 
applications. 

This report covers design details, theory of operation , and suggestions on 
modifying the software to accomodate different clock speeds. In addition , a listing of 
the system software is provided in the appendix. 
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1.0 INTRODUCTION 


The IRIG format 'B' decoder accepts serial unmodulated IRIG time code from on 
external source and provid'^s a parallel BCD time-of-yeor output. This output may be 
used at any time by any device that requires this information. 

Upon power-up , the circuit will begin searching for the IRIG framing bits. When 
these bits are fouixl, the system begins reading the incoming bits and formatting them 
into digits. As each group of digits is formatted into seconds, minutes, hours, and days, 
they are sent to the output ports and software buffers in RAM. This is the only frame 
which will exhibit significant delays. The output for all further frames Is controlled by 
the software buffers and or ly refreshed by the formatted IRIG code. In this way , the 
great majority of input-to-o jtput delay is eliminated. 

In the event of IRIG failure, on on-board backup timer will respond within 
seventeen milliseconds to continue providing the necessary output, assuming that the 
software buffers contained the correct time prior to failure. The backup timer will 
continue until the IRIG code Is resumed. 

The system also incorporates a program-controlled hardware overseer which 
checks to see that the CPU does not ever stay Most'. If the system becomes 'lost' for 
more than 35 milliseconds, the system will be totally reset and begin searching for the 
framing bits again. If no bits are found while searching for the fro. le, the backup timer 
will take over. 






2.0 

SPECIFICATIONS 



2.1 

INPUTS 


’• 


2.1.1 Power Requirement 


1 


i. 5 volts D.C. at approximate!) 32 mA 

f| 

1 


2.1.2 Code Input 

- ' 


i. Format; 

IRIG B BCD serial time of 



year. (Control functions and 

straight binary seconds may be • 

.1 

it 


Included in the code and wil. 

not affect the operation of the 

;* 


decoder). 

] 



i.i Amplitude; 

Input logic high - above 3.5 vdc 




input logic low-below 1.5 vdc 

i 


i.i.i. Input Capacitance; 10-15 picofarad 

i 


iv. Input to Output 


*. 


Accuracy; 

Primary; 5.4ms delay max 

Backup; accuracy is dependent 


2.2 

OUTPUTS 

upon the system time base. 

1 


2.2.1 Code Output 


1 


i. Format; 

Parallel 34 bit BCD time of 

n 


year 




seconds/10 

4 bits 

,1 


seconds 

7 bits 

«♦ 

t» 


minutes 

7 bits 

,♦ 


hours 

6 bits 



days 

10 bits 

4 


i.i Amplitude; 

logic high, 5 VDC 

H 

U 



logic low, 2mV DC 



iii. External load; 

500 ohms maximum 

4 

1 

2.3 

SYSTEM TIME BASE 


i! 


i. Type 

Crystal Controlled Oscillator 



ii. Frequency 

2 MHz 

*l 


2 


i 









3.0 


THEORY OF OPERATION 


3.1 Hardware 

Refer to the block diagram in Figure 3.3 or Schematic drawing number 
D42CR02. The heart of the decoder is the NCS800N CPU. In this application, the CPU 
will respond to one of four possible conditions; 





■ 




1. If IRIG is present, the CPU will be interrupted on every negative edge of 
the incoming code. 

2. If the IRIG input fails, the CPU will be interrupted by a failure timer that 
has sensed the absence of the IRIG code. 

3. If IRIG has failed and the CPU has been interrupted by the failure timer, 
it will then be interrupted by a 100 Hz self-generated pulse stream. 

4. If the CPU gets lost, an automatic system reset will occur. 

In case // I, when IRIG code is present, the NSC8I0 measures the duration of the 
incoming pulses and makes this data available to the CPU. The CPU then determines 
whether the pulse is a logic M* , a logic 'O', or a position marker, (see IRIG format 
illustration, page 12). Section 3.2 will discuss how this is done. 

The interrupt caused by IRIG failure is produced by the NSC8I0 PIO, (case // 2). 
This chip will interrupt the (rPU if the expected interrupt caused by incoming IRIG does 
not occur within 17ms. Seventeen milliseconds was chosen since IRIG should interrupt 
the system at least once every 16ms. When the NSC810 does interrupt the CPU, the 
NCS8I0 is reconfigured to produce a lOOHz pulse stream that replaces the missing lOOHz 
IRIG code and allows the decoder to continue the time from where it left off prior to 
IRIG failure, (Case //3) 

In case 4, the system will be totally reset if a certain "known" subroutine is not 
executed periodically. This insures that if the CPU becomes "lost", the entire system 
will be reset. This is accomplished by restarting the 35ms CD4098 one-shot every time 
the "known" subroutine is executed. Thus, if the CPU becomes lost, the first half of the 
one-shot will "time-out" and trigger the second half of the CD4098 which in turn will 
hold the RESET line low for a short period of time. 


The NSCBiO PIO contains 128 bytes of useable R/W memory, 22 I/O ports, and two 
internal timers designated is a timer zero and timer one. The RAM is used for the 
system stack, software flag storage, and timer buffers. Nineteen of the 22 I/O ports are 
used for IRIG input and timer I/O . Timer zero is used to determine the duration of the 
incoming IRIG pulses. Timer one is used to look for the possible 17ms absence of IRIG in 











the case of failure . Timer one is also used to produce the 100 HZ pulse stream when the 
system is in its backup mode. 

The NSC-831 is also a PIO, but contains only p>orts. The NSC83I (no ROM) was 
chosen over the NSC830 (with ROM) since the development of the system would require 
many software changes. This method will also allow the addition of other programs that 
may be added to the existing 27CI6 EPROM. 

Since the NSC800 family utilizes multiplexed address end data lines, the 82PCI2 
demultiplexer was used to provide separate address and data I nes to the 27CI6 EPROM, 
which stores the decoder software. 

3.2 Software 

The system software can be broken into two main segments- primary and backup. 
Refer to the flowchart in Figure 3.4 (a) and (b). Under normal conditions, IRIG is being 
read. The decoder output is a reflection of the incoming code and only primary software 
will be executing. In the case of IRIG failure, the backup software will take over and 
begin producing the necessary outfxjt until the IRIG code input is resumed. (See page 16 
for a complete software listing.) 

3.2.1 Primary Decoder Software 

The primary or main program begins by initializing the output ports. These ports 
may be used as inputs or outputs. In this case, all are configured as outputs except the 
NSC8IO's port C bits 3 and 4 which are used as inputs by the imers. Upon power-up of 
the system, all ports are automatically configured as inputs for the purpose of preventing 
any ambiguous output levels from triggering devices that may be connected to these 
outputs. A port in the input mode is in a high impedance state. In addition to initializing 
the ports, two flogs described below are set to zero: 

'OUTENBL' This flag keeps the software buffers disabled until the first 
frame of IRIG has been decoded and sent to the ports. 

OUTENBL = $00 during the first pass of IRIG after power- 

up. The software buffers are disabled. 

OUTENBL = $FF after the first p iss of IRIG. The software 
buffers will be ei abled until the system 
restarts from power- up again. 




'BAKFLAG' The NSC-8IO's timer I is used for two purposes. It is used os 
on IRIG failure timer during the primary program sequence and 
os the 100 Hz pulse generator in the event of IRIG failure. 
Since both timer functions use the same output, and hence the 
same interrupt line, this flog is needed to differentiate 
between the two functions. 

BAKFLAG = $00 when timer I is configured as the IRIG 

failure sensor. The lOOHz pulse generator is 
disabled. 

BAKFLAG = $FF when IRIG has failed, timer I has been 
configured as the lOOHz pulse generator, and 
the program is in the backup mode. The 17ms 
IRIG failure timer is disabled. 


The next step of the main program is to find the framing bits of the IRIG code. 
This is accomplished by testing each incoming bit until two consecutive position markers 
( 8ms) are sensed. This segment uses a iubroutine called 'GET' which is responsible for 
reading one incoming bit and determining what it is ( i.e. logic 0 or I, or position 
marker). After the program is synchronized, the tenths and hundredths of seconds 
counters are reset to zero. The hundredths counter increments once for every incoming 
pulse. That pulse will either be due to incoming IRIG code or the system-generated 
lOOHz back-up pulse generator. When the hundredths count buffer, 'HUNT, reaches ten, it 
resets to zero and irx:rememts the tenths count buffer, 'TEN'. Then, as more pulses are 
read, the tenths count increments until it is time to increment the seconds count, 
minutes count, etc. Therefore, after the first IRIG code stream initializes these 
software buffers, they contir ue to calculate the present time every hundredth of a 
second and send it to the output ports every tenth of a second. This way, the program 
does not have to wait for the delayed IRKi serial data to be read and decoded each time 
before it is sent to the ports. The IRIG time is simply sent to the software buffers once 
per second as a reminder of what the btffers should contain. This insures that if the 
incoming IRIG code is changed, or an error is produced by the buffers, the error will be 
corrected during the next IRIG frame. 
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Now that all ports and buffers have been initialized and the program has 
recognized the framing bits, the program will begin reading code. Since the incoming 
code is pulse width logic, the NSCSIO's timer 0 is used to measure the length of each 
incoming pulse. The process begins by calling the subroutine, 'GET'. This subroutine sets 
timer 0 to a mode that causes it to act as a down-counter. It begins decrementing from 
a predefined 'modulus' value whenever a positive transition occurs during the incoming 
IRIG code. The modulus will decrement once for each 6^ system clock pulses, and stop 
decrementing after the IRIG pulse has dropped back low again. This function is also 
determined by the timer mode selection. 

Not only does the negative transition cause the modulus to stop decrementing, but 
it also causes a CPU Interrupt via RSTA. (Case //I as discussed on page 3). When this 
interrupt occurs, the decremented modulus value is read from the NSC8I0 and used to 
calculate the width of the pulse and hence, the pulse's logic value. 

In our case, the modulus was initially loaded with $FFFF. The system clock 
frequency is 2 MHz which makes the timer effectively see on input frequency of 
2 MHz /64 = 31.250 KHz, resulting in on effective timer period of 32 microseconds. 
Therefore, 

PULSE WIDTH = (MODULUS -DECREMENTED VALUE ) X 32us. 

This width can then be compared to expected IRIG pulse widths to determine what 
the pulse is. For this software the width definitions ore; 



Accepted 

Expected 

Definition: 

Pulse Duration; 

Duration: 

logic 'O' 

less than 3.5ms 

2ms 

logic ' r 

3.5ms to 6.5ms 

Sms 

position marker 

greater than 6.5ms 

8ms 


Before the defined bit is sent back to the calling routine, the software counters 
are incremented by one hundredth. 

Since IRIG code comes in the same code word structure every frame, ( e.g. 
seconds, then minutes, then hours etc.) we know when to expect each digit of the BCD 
time. These BCD digits are then sent to both the output ports and to the "look-ahead" 
software timer buffers where they overwrite ony previous value. It is assumed that 
under the expected conditions, though, the software-calculated time and decoded IRIG 









time will be equal. After the DAYS value has been read and sent to 'he ports and 
buffers, the program jumps back to the framing routine to get ready to read the next 
frame. 

The 'GET" subroutine also sends a pulse to the automatic system rjset circuitry 
composed of the CD4098 monostable multivibrator. This circuitry is activated by 
reading or writing to any memory location on page $30. If the system ii operating in 
either the primary or backup mode properly, the 'GET" subroutine will be executed every 
10ms. Therefore, every lOms a pulse is sent to the first half of the CCi4098. These 
continuously-applied pulses keep the one-shot in its high state and prevent it from timing 
out and producing a high-to-low transition. If the CPU gets lost and does not send the 
retrigger pulse, after 35ms the first half of the one-shot will time out and •all from high 
to low. This negative transition causes the second half of the CD4098 to jwll low for a 
short period of time. Since the output is connected to the CPU's reset inptt , the entire 
system will be reset and the program will begin from location $0000 in ROM. This reset, 
however, will not destroy the contents of RAM. Thus, even if the system was in its 
backup mode, a rest t will only cause a small delay and will not destroy the timer buffers 
or the software flags. 

3.2.2 Back-up Timer Software 

In order for the back-up timer to function properly, it must fVst sense the absence 
of IRIG code, update the software buffers, and then check for the return of the IRIG 
code. 

The absence of IRIG input is detected by first realizing that the longest delay 
between any two IRIG negative pulse transitions is 16 milliseconds. ( See IRIG 
illustration, page 12). On the negative transition of every IRIG pulse, a 17 millisecond 
timer is started. When the 17ms timer 'times out', a pulse is sent to the CPU via the 
RSTA interrupt. Again, since the longest delay expected when reading RIG code is 
16ms, if IRIG Is still present. It should have already interrupted the CPU before the 17ms 
timer did. The IRIG interrupt also disables all futher interrupts, and thus the 17ms 'time 
out' pulse will be ignored. 

Now, assuming that the CPU has been interrupted by the IRIG failure timer, the 
program jumps to the back-up timer routine. This routine generates a 100 Hz pulse 
stream by reconfiguring the same timer that was just used for IRIG failure detection. 
This new pulse stream simulates the 100 Hz IRIG pulse stream. Once this independent 
pulse generator is started, the program returns to the framing routine in hopes of 






detecting IRIG code again. Since the back-up routine was executed, 'BAKFLAG' has been 
reset so that the IRIG failure detector is disabled, thus preventing the reconfiguration of 
the lOOHz timer again. Both NMI and RSTA are enabled during the back-up routine 
execution. This allows IRIG to regain control upon its return by interrupting the CPU via 
the NMI interrupt input. 
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Figure 3.6 System Memory Map 



















4.0 ADJUSTMENTS 


4.1 Accuracy of the Back-Up Timer 

The back-up timer accuracy is directly dependent upon the accuracy of the 
system's timebase, since the 100 Hz pulse generator is produced by counting a 
predetermined number of clock periods from the CPU's clock output. The frequency of 
the back-up timer con easily be set to lOOHz and fine tuned with small changes in the 
CPU's oscillator input frequency. Presently, under softwore control, the tuning 
resolution is in steps of 5.0003 milliHz for every one-digit change in timer I's modulus 
value. 

4.2 Changing System Clock Frequency 

Although the decoder relies totally on the CPU clock frequency of 2 MHz as a 
reference for all timing operations, a change in the system's clock frequency requires 
only minor changes in the decoder's software. The range of acceptable CPU speeds 
depends upon the mode of the NSCSIO's timers, and the initial value of the timer's 
modulus. For a more complete description of the operation of the timers, see National 
Semiconductor's NSC8I0 product description. 

If the system clock frequency is increased or decreased, the modulus will 
decrement faster or slower, respectively. Therefore, it is necessary to make changes in 
the software routines which use this modulus value to define the incoming pulses, both 
primary and backup. The following general procedure can be followed. 

If the frequency is increased, the numbers that the modulus is compored to ( after 
the incoming IRIG pulse has caused the modulus to decrement to a certain value) will 
need to be changed since the modulus will be decrementing faster. (Refer to the 'BIT' 
subroutine in the software listing in appendix A). These numbers are easily calculated. 
For example: 


Incoming position marker has a pulse width of 8ms 
CPU Clock Period = 0.5us 

Timer input PRESCALE = divide by 64 (defined by timer mode) 

2 Byte modulus (also defined by timer mode) 

Therefore, the modulus value will decrement every (64 X O.Sus) = 32us. 

The expected modulus value after on 8ms pulse has been read by the timer would 
be $FFFF-(8ms/32us)= about $FF05. A two byte modulus was used since a one byte 










modulus can only measure a maximum width of $FFX32us = 8.16ms. If the position 
marker was longer than 8.16ms, a one byte modulus would cause an error. If a two byte 
modulus was used, the high byte would simply decrement by one every time the low byte 
reached zero. Therefore, to determine what each pulse is, the high byte of the modulus 
is checked to see if its least significant bit is equal to zero since the high byte will 
decrement from $FF to $FE. If so, we assume that the pulse is a position marker in 
excess of 8.16ms. If the LSB af the high byte is still a 'one', the pulse must have been 
less than 8.16ms. The low byte is then checked for greater than 145 which represents a 
time less than 3.5ms. A count greater than 145 indicates a logic zero and a count less 
than 145 indicates either a logic one, or a position marker less than 8.16ms long. If the 
count was less than 145, it is checked for greater than 52. If the count is greater than 
52, the pulse was more than 3.5ms long and less then 6.5ms, Indication that pulse was 
probably a 5ms logic 'one'. If the count was less than 52, it is assumed that the pulse 
probably was a position marker shorter than 8.16ms. 

Since one of the above three pulses will occur every 10ms, the software timer 
buffers are incremented immediately after the pulse has been defined. 

5.0 SYSTEM DEDICATION 

The decoder was designed to be as nan-dedicated as possible to the single task of 
translating IRIG code. The system uses only two of the available five Interrupts to 
accomplish the decoding. Presently, after the program decodes ec::h pulse it waits for 
the next one by halting the processor and enabling the Interrupts. The processor waits 
anywhere from 3ms to 15ms before the next IRIG bit interrupts the CPU from its HALT 
state. Since execution of the primary program takes less than 500us, at least 2.5ms are 
available out of every lOms for other tasks before the CPU is expected to be interrupted 
again. If the program is In the back-up mode due to IRIG failure, the 100 Hz interrupt 
sequence is self-generated and predictable. Therefore, in the back-up mode there is at 
least 9.5ms of CPU time available out of every lOms. Any auxilliary program may be 
executed during this period In the primary or birckup mode as long as it either returns to 
the deeVer program prior to the next expecteci IRIG pulse or makes sure that the RSTA 
Interrupt is enabled so that IRIG or the bac';-up timer may interrupt the auxilliary 
program when needed. It is also imperative that the CPU stack be restored to its 
original state prior to returning to the decoder program. 
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IRIG B DECODER SOFTWARE LISTING 
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ASEG 

.280 


IRIG FORMAT 'B' DECODER SOFTWARE LISTING 
- DEFINITIONS - 


PIO related definitions 


MDRQ 

EQU 

0A007H 

TMRO 

EQU 

0A018H 

MDO 

EQU 

OOH 

TMO 

EQU 

IIOIIOIIB 

TIMF.RO 

EQU 

OAOlOH 

TOSTAR 

EQU 

0A015H 

TOSTJP 

EQU 

0A014H 

TMRl 

EQU 

0A019H 

TMIDEL 

EQU 

OlOllOOlB 

TMIPULS 

EQU 

OlOllOOlB 

TIMRONE 

EQU 

0A012H 

TISTAR 

EQU 

0A017H 

TISTOP 

EQU 

0A016H 

icR 

■ QU 

OBBH 

ODRA 

EQU 

OA004H 

ODRB 

EQU 

OAOOSH 

DDRC 

EQU 

OA006H 

PORTA 

EQU 

OAOOOH 

PORTB 

EQU 

OAOOIH 

PORTC 

EQU 

0A002H 

DDA 

EQU 

9004H 

DDB 

EQU 

9005H 

DDC 

EQU 

9006H 

PRTA 

EQU 

9000H 

PRTB 

EQU 

9001H 

PRTC 

{ 

HUN 

EQU 

9002H 

EQU 

2000H 

TEN 

EQU 

2001H 

SECND 

EQU 

2002H 

MINUT 

EQU 

2003H 

HOUR 

EQU 

2004H 

DAYS 

EQU 

2005H 

DH 

EQU 

2006H 

BAKFLAG 

EQU 

2007H 

OUTENBL 

EQU 

2008H 

STACK 

EQU 

2080H 

AOKAY 

{ 

; 

EQU 

3000H 

{ 

{ 

ORG 

0000 


JP 

START 


; 

; 


; 

ORG 

3CH 


CALL 

BACKUP 


POP 

AF 


POP 

AF 


JP 

FRAMEl 


i 


.mode definition register address 
;timer 0 mode register address 
;mode definition register set for BASIC I/O 
;timer 0 mode set for pulse width meas'mnt 
{modulus value address.... timer 0 
{Write causes timer 0 to 'start' 

{a write causes TO to 'stop* 

{timer 1 mode register address 

{Timer 1 Mode set for a 17mS delay 

{Timer 1 Mode set for lOOHz pulse generator 

{T1 modulus address 

{TIMER 1 start address 

{TIMER 1 stop address 

{INTERRUPT CONTROL REGISTER 

{ADDRESSES OF NSC810 DDR'S 


{ADDRESSES OF NSC810 PORTS 


{ADDRESSES OF NSC831 DDR'S 


{ADDRESSES OF NSC831 PORTS 

{LOCATIONS OF SOFTWARE TIMER 
{ BUFFERS 


{low 0 bits of DAYS 
{ high 2 bits of DAYS 
{backup lOOhz pulse generator enable 
{Output enable for software timers 


{SKIP OVER INTERUPT VECTORS 
- VECTORS - 


{RESTART lAJ Interrupt vector 
{ simulate returns from 
{ RSTA ( 'GET' 

{Continue checking for irig 



ORG 

66H 


EX 

AF,AF 


LO 

A,(BAKFLAG) 


CP 

OOH 


JR 

Z.EXCH 


JP 

START 

EXCH: 

EX 

AF.AF 


CALL 

RET 

BIT 


{non-maskable interrupt vector 


{Since we have interrupted the execution 
{Of RSTAf we will start back at square 1 
{ since the stack is probably messed up 
{RETURN FROM NMI 


A-1 












; 


INITIALIZATION 


ORG 80H 


LD 

LD 

START: LD 


A,0 

(OUTENBL),A 
A.OFFH 
(DORA) ,A 
(DORB) ,A 

(ODA) ,A 

(ODB) .A 
(DDC),A 
A,27H 
(DDRC),A 
SP,STACK 
A,0 

(BAKFLAG),A 


S top of RAM 

:set up DDR's of ports 
:these ports has inputs 


jNSCSlO's PORT 'C* has some inputs 
;set up stack in NSCSlO's top of RAM 
;clear the backup flag 


MAIN PROGRAM 


The primary program checks for the presence of the 2 IRIG 
markers, when these are found, the program begins reading the 
incoming code. The code is input in serial, changed to parallel, 
and then sent to the parallel output ports. Inaddition to being sent 
to the ports, the time code is also sent to the software timers 
which update the ports every 10 milliseconds, and thus eliminate 
most of the INPUT-to-OUTPUT delay error. 


FRAHEl; CALL 
LD 
CP 
JR 

FRAME2: CALL 
LD 
CP 
JR 


;NOW WE'RE IN 
> 


GET 

A,C 

OFFH 

NZ,PRAME1 

GET 

A,C 

OFFH 

NZ,FRAME1 

A,0 

(HUN),A 
(TEN),A 


:the program will fall through this loop 
; only when 2 consecutive pulses grea''‘>r 
; than 6.5 mS are detected 
; (MARKERS) 


;reset hundredths and tenths buffers 


SYNC, SO LETS START READING TIME CODE 


CALL 

DIGITS 

LD 

(PORTA),A 

LD 

(SECND),A 

CALL 

CHECK 

JR 

NZ,FRAME1 

CALL 

DIGITS 

LD 

(PORTB),A 

LD 

(MINUT),A 

CALL 

GET 

CALL 

CHECK 

JR 

NZ,FRAME1 

CALL 

DIGITS 

LD 

(PRTB),A 

LD 

(HOUR),A 

CALL 

GET 

CALL 

CHECK 

JR 

NZ.FRAMEl 

CALL 

GET4 

CALL 

SHIFT 

LD 

b,a 

CALL 

GET 

CALL 

GET4 

OR 

B 

LD 

(PRTA),A 

LO 

(DAYS),A 


;get the first 2 digits of seconds 
isend seconds to port 
isend seconds to buffer 

/this bit should be an BmS marker 
; if not, get re-framed 

/get next two digits 
/send minutes to port 
/send minutes to buffer 

/ignore this bit 

/make sure this one is a position iden- 
/ tifier (8ms marker) 

/send 'ours 


/ignore this bit 
/check position again 


/save <A> 

/ignore this one 
/get the next 4 bits 

/send Ist 8 bits to ports 
/send to buffer 











THERE: CALL 

CHECK 

;chec)t position 


JR 

NZ,PRAME1 



CALL 

GET 



LO 

B,C 



SRL 

B 

;now, get the last 

2 bits of DAYS 

CALL 

GET 

; to determine the 

MSD 

LD 

A,C 



OR 

B 



RLC 

A 



RLC 

A 



LD 

(PORTC),A 

/send final digit 

to port 

LD 

(DH),A 

/send to buffer 


LD 

A,0FFH 

/enable the buffer 

outputs 

LD 

(OOTENBL),A 



JP 

FRAME1 




MAIN PROGRAM SUBROUTINES 


DIGITS: 

PUSH 

BC 


/ this routine expects a certain 


CALL 

GET4 


; sequence of 8 Incoming bits 


CALL 

SHIFT 


/ to represent two IRIG digits 


LD 

B,A 




CALL 

GET4 


/ The two BCD digits are returned 


SRL 

A 


/ in the accumulator - the 1st 


OR 

B 


/ in LSB position. 


POP 

BC 




RET 




CHECK: 

CALL 

GET 


/this routine cheOts to see 


LD 

A,C 


/ if the next bit is an 8mS 


CP 

OFFH 


/ position identifier as expected. 


RET 



/ If it is not, an error has 
/ occured and the program must 





/ re-frame 

1 

SHIFT: 

SRL 

A 


/This routine shifts the 


SRL 

A 


/ upper 4 bits of the accum. 


SRL 

A 


/ into the lower 4 bits 


SRL 

A 



; 

; 

; 

GET4: 

RET 




PUSH 

BC 

/ This routine gets the next 4 bits from 


CALL 

GET 

/ the 

incoming code string and returns them ir 


LO 

A,C 

/ the 

upper nibble of <A>. 


SRL 

A 




CALL 

GET 




OR 

C 




SRL 

A 




CALL 

GET 




OR 

C 




SRL 

A 




CALL 

GET 




OR 

C 




POP 

BC 




RET 

; 

GET: 

; 

; This subroutine waits for the next Incoming pulse (or bit) and 
;returns in the <C> register a unique value depending on the 
^computed definition of the pulse. 

; The Incoming pulse causes an Interrupt through $0066 interrupt 

;vector, the Interrupt service routine is executed, and then returns 
;to this routine. The program then returns to the calling program 
{With the calculated bit definition In register <C>. 

I While waiting for the next expected IRIG pulse, a 17m8 timer 

;is started. If this timer reaches zero before the next IRIG pulse 
I la sensed, the program will assume IRIG has failed, and will begin 
/execution of the BACKUP routine. 











LD 

(TMRO) ,A 

{reset TO 

LD 

A,TM0 

{load timer 0 with the desired 

LD 

(TMRO),A 

{ timer mode 

LD 

A,MD0 

{set mode definition register 

LD 

(MDRO),A 


LD 

HL,0FFFFH 

{load timer 0 MODULUS with $FFFF 

LD 

(TIMERO),HL 


LD 

(TOSTAR),A 

{enable the timer 


If IRIG is still on, we should not make it all the way through the 
following 17mS delay caused by T1. If we do, it indicates IRIG failure. 


WAIT: 


will 

jump to the backup 

timer routine. 


LD 

A,(BAKFLAG) 

{if BAKFLAG=0, we will execute 


CP 

OFFH 

{ the code immediately below 


JR 

Z,WA1T 

{ (this starts our 17ms timer) 

LD 

A,7 



LD 

(TMRl),A 

{reset T1 


LD 

A.TMIDEL 

{set-up timer to create delay 


LD 

(TMRl),A 



LD 

A,42H 



LD 

HL,426BH 

{this 2-byte modulus, ($4268), 

will produce 

LD 

(TINRONE),HL 

; 17ms count-down delay 


LD 

(TISTAR),A 

{Start the delay 


LD 

A,08H 

1 un-mask RSTA in the I.C.R 


OUT 

(ICR),A 



LD 

A,(AOKAY) 

{Send acknowledge pulse via PAGE 30 select 

POP 

AF 

{enable both NMI and RSTA and 

wait 

El 


{ to see which is first 


HALT 


{(any other program may be executed here!) 


{Return 

to here from interrupt service 
{return from 'CALL GET’ 

routine 

RET 




BIT: 


NHI interrupt service routine 


INTERRUPTED BY IRIG CODE 


; 



POSH 

AF 


LD 

(TOSTOP),A 


LD 

HL,(TIMERO) 


BIT 

0,H 


JR 

Z,MARKER 


LD 

A,L 


CP 

145 


JR 

NC,ZERO 


CP 

52 


JR 

NC,ONE 

MARKER: 

LD 

C,0FFH 


CALL 

UPDATE 


JR 

SKIP 

ZERO: 

LD 

c,o 


CALL 

UPDATE 


JR 

SKIP 

ONE: 

LD 

C,80H 


CALL 

UPDATE 

I 

SKIP: 

POP 

AF 

{ 

BACKUP: 

RET 



; 


ONLY . 

j Stop timer 0 
;get count from timer 
;test bit 0 of high byte 
;a marker if >8.16ms 

;long count is position identifier 

;pulse is a logic zero 

;medluin count is a logic one 
{return from 'BIT' 


{ 

{ 


RSTA interrupt service routine 
INTERRUPTED BY TIMER 1 ONLY ... 





























PUSH 

HL 



LD 

HL,(TIMKONE) 

:read T1 modulus to reset T1 output 


POP 

HL 



PUSH 

AF 



LD 

(TOSTOP),A 

: ttie first time through the routine. 


LD 

A, (BAKFLAG) 

; BAKFLAG*$00 


CP 

OFFH 

; if BAKFLAG=$FF, we will skip 


JR 

Z,CALLUP 

:code immediately below to save time 

FIRST: 

LD 

A,OFFH 

;set backup flag 


LD 

(BAKFLAG),A 


t 

LD 

A.TMIPULS 

.■configure T1 for lOOHz pulse generator 


LD 

(THRl),A 



LD 

HL,9971 

;load MODULUS with 9971 to create a 


LD 

(TIHRONE),HL 

IlOOHz timer that produces one active 
:low output pulse every 10ms to cause 
>an RSTA every 10ms. 

; Note: this MODULUS value is determined 
;somewhat by trial and error since the 
{execution of the program also adds 
>to the delay. 


LD 

(TISTAR),A 

{Start the pulse generator 

CALLUP: 

CALL 

UPDATE 

{increment the software timer 


POP 

AF 



RET 


{go back and check for IRIG again 


: 

UPDATE: 


0 





PASS THROUGH 

THIS LOOP EVERY lOms . 

1 

LD 

A,(HUN) 

{increment the hundredth's count 

INC 

A 

; on every pass —— 

LD 

(HUN),A 

{--then see if anything else 

CP 

10 

{ needs to be incremented also 

RET 

NZ 


XOR 

A 


LD 

(HUN),A 


TENTHS: LD 

A,(TEN) 


INC 

A 


LD 

(TEN),A 


CP 

10 


JR 

NZ,OUTPUT 


XOR 

A 


LD 

(TEN),A 


SECONDS: LD 

A, (SECND) 

{read buffer 

INC 

A 

{increment seconds count 

DAA 


{Change to BCD 

LD 

(SECND),A 

{replace incremented seconds count 

CP 

60H 

{was count«607 

JR 

NZ,OUTPUT 

{if not, just print all values again 

XOR 

A 

{if so, reset to zero and then increment 

LD 

(SECND),A 

{ the minutes counter 

MINUTES: LD 

A,(MINUT) 


INC 

A 


DAA 



LD 

(MINUT),A 


CP 

60H 


JR 

NZ,OUTPUT 


XOR 

A 


LD 

(MINUT),A 


HRS: LD 

A,(HOUR) 


INC 

A 


DAA 



LD 

(HOUR),A 


CP 

24H 


JR 

NZ,OUTPUT 


XOR 

A 


LO 

(HOUR),A 



A-5 










DAZE: LD A,(DAYS) 

INC A 

OAA 

LD (DAYS),A 

CP 0 tcompare to zero since 99«1*00 & <C>»I 

JR NZ,OUTPUT 

LD A,(DH) 

INC A 

LD (DH),A 

; 

OUTPUT: 

LD A.(OUTENBL) tehee): the flag 

CP OFFH toutput is enabled if FLAG«$FF 

JP NZ,RETURN 

I 

LD A,(TEN) 

LD (PRTC),A 

LD A,(SECND) 

LD (PORTA),A 

LD A,(M1NUT) 

LD (PORTB),A 

LD A,(HOUR) 

LD (PRTB),A 

LD A,(DAYS) 

LD (PRTA),A 

LD A,(DH) 

LD (PORTO, A 

RETURN: RET 








